From: Nick Roberts <nickrob@snap.net.nz>
Date: Sun, 30 Aug 2009 22:24:05 +0000 (+0000)
Subject: (comint-exec-1): Check command is non-null first.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~10761
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1657762eba8bed13b3c83a75547c9d29b6f001f4;p=emacs.git

(comint-exec-1): Check command is non-null first.
Part of gdb-mi.el change (2009-08-28).
---

diff --git a/lisp/comint.el b/lisp/comint.el
index 69fd32d9b3b..36d7de5ec2f 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -790,7 +790,7 @@ buffer.  The hook `comint-exec-hook' is run after each exec."
 	      default-directory
 	    "/"))
 	proc decoding encoding changed)
-    (let ((exec-path (if (file-name-directory command)
+    (let ((exec-path (if (and command (file-name-directory command))
 			 ;; If the command has slashes, make sure we
 			 ;; first look relative to the current directory.
 			 (cons default-directory exec-path) exec-path)))